home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / 1 touch keywords (.txt) next >
Commodore BASIC  |  2022-09-20  |  2KB  |  69 lines
  1. 140 if peek(peek(56)*256)<>120thenpoke56,peek(56)-1:clr
  2. 150 hi=peek(56):base=hi*256
  3. 160 print"[147]patience..."
  4. 170 for ad=0 to 211: read by
  5. 180 poke base+ad,by: next ad
  6. 190 :
  7. 200 rem relocation adjustments
  8. 210 poke base+26,hi: poke base+81,hi
  9. 220 poke base+123,hi: poke base+133,hi
  10. 230 :
  11. 231 ::if peek(65532)=34 goto 240
  12. 232 ::poke base+9,72: poke base+48,194
  13. 233 ::poke base+52,235: poke base+92,160
  14. 234 ::poke base+154,72: poke base+157,224
  15. 235 ::poke base+158,234
  16. 236 ::
  17. 240 print"[147]* one-touch keywords *"
  18. 250 print"on/off:   sys";base
  19. 260 end
  20. 270 data 120, 173, 143, 2, 201, 32
  21. 280 data 208, 12, 169, 220, 141, 143
  22. 290 data 2, 169, 235, 141, 144, 2
  23. 300 data 88, 96, 169, 32, 141, 143
  24. 310 data 2, 169,  0, 141, 144, 2
  25. 320 data 88, 96, 165, 212, 208, 117
  26. 330 data 173, 141, 2, 201, 3, 176
  27. 340 data 110, 201, 0, 240, 106, 169
  28. 350 data 159, 133, 245, 169, 236, 133
  29. 360 data 246, 165, 215, 201, 193, 144
  30. 370 data 95, 201, 219, 176, 91, 56
  31. 380 data 233, 193, 174, 141, 2, 224
  32. 390 data 2, 208, 3, 24, 105, 26
  33. 400 data 170, 189, 159,  0, 162, 0
  34. 410 data 134, 198, 170, 160, 158, 132
  35. 420 data 34, 160, 192, 132, 35, 160
  36. 430 data 0, 10, 240, 16, 202, 16
  37. 440 data 12, 230, 34, 208, 2, 230
  38. 450 data 35, 177, 34, 16, 246, 48
  39. 460 data 241, 200, 177, 34, 48, 17
  40. 470 data 8, 142, 211,  0, 230, 198
  41. 480 data 166, 198, 157, 119, 2, 174
  42. 490 data 211,  0, 40, 208, 234, 230
  43. 500 data 198, 166, 198, 41, 127, 157
  44. 510 data 119, 2, 230, 198, 169, 20
  45. 520 data 141, 119, 2, 76, 220, 235
  46. 530 data 76, 67, 236
  47. 540 :
  48. 550 rem *tokens for shift key
  49. 560 :
  50. 570 data 153, 175, 199, 135, 161, 129
  51. 580 data 141, 164, 133, 137, 134, 147
  52. 590 data 202, 181, 159, 151, 163, 201
  53. 600 data 196, 139, 192, 149, 150, 155
  54. 610 data 191, 138
  55. 620 :
  56. 630 rem *tokens for commodore key
  57. 640 :
  58. 650 data 152, 176, 198, 131, 128, 130
  59. 660 data 142, 169, 132, 145, 140, 148
  60. 670 data 195, 187, 160, 194, 166, 200
  61. 680 data 197, 167, 186, 157, 165, 184
  62. 690 data 190, 158, 0
  63. 700 ::
  64. 710 ::rem *checksum routine
  65. 720 ::
  66. 730 ::for ad=0 to 158 : read by
  67. 740 ::chksum = chksum + by : next ad
  68. 750 ::if chksum <> 20347 then print "error!"
  69.